home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Utilities / List Randomizer 2.1 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1994-04-30  |  2.6 KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>3716</cardID>
  8.     <listID>2269</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>‚àû‚àû‚àû‚àû Script info for "List Randomizer 2.1", STACK ‚àû‚àû‚àû‚àû
  17.  
  18. HANDLERS:
  19. -- closeStack, openStack, readFile, saveFile
  20.  
  21. GLOBALS:
  22. -- fName, status, uL
  23.  
  24. STATS: 1671 chars, 76 lines, 3/14/92, 2:22 PM
  25. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
  26. --
  27. --  Script of stack "List Randomizer"
  28. --
  29. --  Written by Jack W. Richens, Jr.
  30. --             Richens Consulting
  31. --             P.O. Box 1853
  32. --             Columbia, MO  65205
  33. --             (314) 445-8042
  34. --
  35. --  Copyright 1991, Richens Consulting, Columbia, Missouri
  36. --
  37. --  THIS STACK IS FOR FREE DISTRIBUTION!  IT CANNOT BE USED
  38. --  COMMERCIALLY OR DISTRUIBUTED FOR PROFIT!
  39. --
  40. --
  41. --  This script contains startup and subroutine scripts.
  42. --
  43. on openStack
  44. global uL,fName,status
  45. put the userlevel into uL
  46. If the shiftkey is not down then
  47. hide menubar
  48. set the userlevel to 2
  49. end if
  50.  
  51. --put empty into cd fld "TheList"
  52. put empty into fName
  53. put "N" into status
  54. end openStack
  55.  
  56. on closeStack
  57. global uL,fName,status
  58. if status is "N" and cd fld "TheList" is not empty then
  59. --
  60. --  need to save list before exiting
  61. --
  62. answer "Save changes before leaving?" with "Yes" or "No"
  63. if it is "Yes" then do saveFile
  64. end if
  65.  
  66. set the userLevel to uL
  67. end closeStack
  68.  
  69. on readFile
  70. global uL,fName,status
  71. --
  72. answer file "List location..." of type TEXT  -- REV 910916
  73. if it is empty then exit readFile
  74. put it into fName
  75. --
  76. open file fName
  77. put 1 into lNumber
  78. read from file fName until return
  79. repeat until it is empty
  80. put it after cd fld "TheList"
  81. read from file fName until return
  82. end repeat
  83.  
  84. close file fName
  85. end readFile
  86.  
  87. on saveFile
  88. global uL,fName,status
  89. --
  90. if fName is empty then
  91. ask file "Save list as..." with "TheList.txt"
  92. if it is empty then exit saveFile
  93. put it into fName
  94. end if
  95. --
  96. open file fName
  97. write cd fld "TheList" to file fName
  98.  
  99. close file fName
  100. end saveFile
  101.  
  102. </script>
  103.     <background id="4025" file="background_4025.xml" name="" />
  104.     <card id="3716" file="card_3716.xml" marked="false" name="" owner="4025" />
  105.     <card id="5297" file="card_5297.xml" marked="false" name="Help" owner="4025" />
  106.     <card id="5716" file="card_5716.xml" marked="false" name="About" owner="4025" />
  107. </stack>
  108.